home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00624.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  206 b   |  11 lines
  1. on mouseUp
  2.   global dayNo, PeakDayNo
  3.   set PeakDayNo to dayNo
  4.   setAt(stamp, dayNo, 10)
  5.   if getAt(stamp, count(stamp)) = 3 then
  6.     setAt(stamp, count(stamp), 4)
  7.   end if
  8.   showDays()
  9.   setupDayBook()
  10. end
  11.